home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / STRINGS / PACKAGE6 / EQUAL.DOC < prev    next >
Text File  |  1990-07-25  |  1KB  |  35 lines
  1. ----------------------------------------------------------------------------
  2. FirstEqualToSecond
  3. ----------------------------------------------------------------------------
  4.  
  5. declaration:    function FirstEqualToSecond (     String1,
  6.                                                   String2:
  7.                                                   TypeString):
  8.                                                     boolean;
  9.  
  10. purpose:        Returns a boolean; if both strings are equal then the
  11.                 boolean is set to true, if they aren't it is set to false.
  12.  
  13. precondition:   String1 and String2 - both are two Strings that have been
  14.                 initialized and have a value of TypeString.
  15.  
  16. postcondition:  String1 and String2 do not change.  The function is either
  17.                 set to true or false.
  18.  
  19. special cases:  none
  20.  
  21. example:        begin
  22.                   .
  23.                   .
  24.                   .
  25.                   if String1 = String2 then
  26.                     FirstEqualToSecond := true
  27.                   else
  28.                     FirstEqualToSecond := false
  29.                   .
  30.                   .
  31.                   .
  32.                 end
  33.  
  34. ----------------------------------------------------------------------------
  35.